COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ASTER:	SKIPN E,SAVEF		To see what was the last command
C00010 ENDMK
C⊗;
ASTER:	SKIPN E,SAVEF		;To see what was the last command
	JRST ASTERX		;Woops, not properly primed.
	CAIG B,3		;Did we come from within a line?
	JRST ASTER1		;No
	LDB B,[70200,,EDCHR]	;Yes
	MOVE TT,SRFLG2(E)
	TRO TT,EDITM
	MOVEM TT,SRFLG2(E)
	TRZ F,EDITM
ASTER1:	MOVE TT,SRFLG2(E)
	MOVEM TT,SRFLG
	CAIE B,1
	MOVEI B,0
	MOVEI C,15
	TRZ F,ARG!REL!NEG
	MOVE D,[MOVSM REGCR]
	CAIE B,0
	MOVE D,[102000,,CONTCR]
	MOVEI A,1
	MOVE T,SRFLG
	MOVEM D,SDSP
	MOVEM A,SARG
	HRLI C,(B)
	MOVEM C,SCHR
	TLNE D,SACMD
	JRST .+3
	TLNE D,SSCMD
	XCT -1(D)
	MOVEM T,SRFLG
	TRNN T,EDITM
	JRST ASTER2
	MOVE A,ARRLIN
	HRRZ T,2(A)
	MOVEM T,SRCNUM
	MOVE T,EDCNM
	MOVEM T,SRCOFF
ASTER2:	MOVEI A,1
	MOVE D,SDSP
	CAIN E,FNDTBF
	JRST FNDBSL		;A single page command
	CAIN E,FNDBUF
	JRST ASTER2
ASTERX:	OUTSTR [ASCIZ /
Repeat-find command not properly primed./]
	SETZM SAVEF		;Guard against another try
	AOS (P)
	POPJ P,

ASTER2:	SETZM ESCIEN
	MOVE T,EXTPNT
	MOVEM T,TYIPNT
	HRLI C,(<MOVEI C,>)
	MOVEM C,TYIINS
	JRST FINBSL